home *** CD-ROM | disk | FTP | other *** search
/ AOL File Library: 11,000 to 11,999 / 11000.zip / AOLDLs / WIN Tools & Treiber / SCRIPT.exe / dircount.vbs < prev    next >
Text File  |  1998-12-14  |  2KB  |  75 lines
  1. Dim myfsObject    'Objekt fⁿr Dateisystem
  2. Dim myFileList    'Objekt fⁿr Dateiliste
  3. Dim myFolder    'Objekt fⁿr Verzeichnis
  4. Dim confFile    'Objekt fⁿr die Konfigurationsdatei
  5. Dim logFile    'Objekt fⁿr die Logdatei
  6. Dim Groesse    'TatsΣchliche Gr÷▀e des Folders
  7. Dim Einheit    'Variable fⁿr die Gr÷▀eneinheit
  8. Dim Ausgabe    'Variable enthΣlt die in KByte oder MByte umgerechnete Gr÷▀e
  9. Dim Verzeichnis    'Das zu ⁿberprⁿfende Directory
  10.  
  11. Set WSHShell=WScript.CreateObject("WScript.Shell")
  12. Set Shell=WScript.CreateObject("Shell.Application")
  13.  
  14. 'Bei Fehler weitermachen
  15. On Error Resume Next
  16.  
  17. 'Filesystem-Objekt setzen
  18. Set myfsObject=CreateObject("Scripting.FileSystemObject")
  19.  
  20. 'Dateiobjekte setzen
  21. Set confFile=myfsObject.OpenTextFile("dir.txt", 1)
  22. Set logFile=myfsObject.CreateTextFile("sizelog.txt", 1)
  23.  
  24. Do While (confFile.AtEndOfline=False)
  25.     Verzeichnis=confFile.Readline
  26.     Groesse=0
  27.     Ausgabe=0
  28.     if left(Verzeichnis,1)<>"#" then
  29.  
  30.         'Jetzt das Verzeichnis festlegen
  31.         Set myFolder=myfsObject.GetFolder(Verzeichnis)
  32.         
  33.         'Mal schauen, ob das Verzeichnis existiert
  34.         if err.number <> 0 then
  35.             logFile.WriteLine("FEHLER: Das Verzeichnis " & Verzeichnis & " existiert nicht!")
  36.             err.clear
  37.         else
  38.  
  39.             Einheit = "Byte"
  40.             Groesse = myFolder.Size
  41.                 
  42.             'Kilobyte
  43.             if Groesse > 1024 then
  44.                 Ausgabe=Groesse/1024
  45.                 Einheit="KByte"
  46.             end if
  47.     
  48.             'Megabyte
  49.             if Groesse/1024 > 1024 then
  50.                 Ausgabe=Groesse/1048576
  51.                 Einheit="MByte"
  52.             end if
  53.     
  54.             'Gigabyte
  55.             if Groesse/1048576 > 1024 then
  56.                 Ausgabe=Groesse/1073741824
  57.                 Einheit="GByte"
  58.             end if
  59.     
  60.             'Auf zwei Nachkommastellen runden
  61.             Ausgabe = round(Ausgabe, 2)
  62.     
  63.             'Ausgabe in der Logdatei
  64.             logFile.WriteLine(Verzeichnis & ": " & Ausgabe & " " & Einheit & " (" & Groesse & " Byte)")
  65.     
  66.             'Alternativ Ausgabe in Messagebox: NΣchste Zeile auskommentieren
  67.             'WSHShell.popup Verzeichnis & " umfa▀t " & Ausgabe & " " & Einheit
  68.         end if
  69.     end if
  70. loop
  71.  
  72. 'Dateien schlie▀en
  73. confFile.close
  74. logFile.close
  75. WSHShell.popup "Fertig..."